Public Class GestorEquipo

    Private equipoActual As Equipo


    Public Function LevantarEstudiantes(ByVal grupo As Integer) As DataTable
        Dim tablaEstudiantes As DataTable = MultiEstudiante.LevantarEstudiantesSinEquipo(grupo)
        Return tablaEstudiantes
    End Function

    Public Sub CrearEquipo(ByVal nombreEquipo As String, ByVal idGrupo As Integer)

        equipoActual = MultiEquipo.CrearEquipo(idGrupo, nombreEquipo)

    End Sub

    Public Function LevantarEquipos(ByVal codigoGrupo As Integer) As List(Of String)
        Dim lista As List(Of Equipo)
        Dim listaNombres As New List(Of String)
        Try
            lista = MultiEquipo.LevantarListaEquipos(codigoGrupo)


            For Each equipo As Equipo In lista
                listaNombres.Add(equipo.Nombre)
            Next

        Catch ex As Exception
            Return Nothing
        End Try
        Return listaNombres
    End Function


    Public Sub RegistrarEstudiantePorEquipo(ByVal carnet, ByVal nombre, ByVal idGrupo)

        Dim estudiante As Estudiante = MultiEstudiante.BuscarEstudiante(carnet)
        Dim equipo As Equipo = MultiEquipo.BuscarEquipo(idGrupo, nombre)

        equipo.AsignarEstudiante(estudiante)

    End Sub


    Public Sub DesasignarEstudiantePorEquipo(ByVal carnet, ByVal nombre, ByVal idGrupo)

        Dim estudiante As Estudiante = MultiEstudiante.BuscarEstudiante(carnet)
        Dim equipo As Equipo = MultiEquipo.BuscarEquipo(idGrupo, nombre)

        equipo.DesasignarEstudiante(estudiante)

    End Sub

    Public Function LevantarEstudiantesPorEquipo(ByVal idGrupo, ByVal nombre) As DataTable


        Dim equipo As Equipo = MultiEquipo.BuscarEquipo(idGrupo, nombre)
        Dim listaEstudiantes As DataTable = MultiEstudiante.LevantarEstudiantesPorEquipo(equipo.Codigo)
        Return listaEstudiantes
    End Function

    Public Sub ModificarEquipo(ByVal pnombre As String, ByVal pidEquipo As Integer)
        MultiEquipo.ModificarEquipo(pnombre, pidEquipo)
    End Sub

    Public Function ObtenerEstudiantes(ByVal pidGrupo As Integer) As DataTable
        Dim listaEquipos As DataTable = MultiEquipo.LevantarEquipos(pidGrupo)

        If (listaEquipos Is Nothing) Then
            Return Nothing
        End If
        Return listaEquipos
    End Function
    Public Function BuscarEquipoGrupo(ByVal pidGrupo As Integer) As ArrayList
        Dim equipo As Equipo
        Dim ArrayEquipos As New ArrayList
        'equipo = MultiEquipo.BuscarEquipo(pidGrupo, pnombre)
        ArrayEquipos.Add(equipo.Nombre)
        ArrayEquipos.Add(equipo.Codigo)
        Return ArrayEquipos
    End Function



End Class
